<%@ Language=VBScript %> <%If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then ef=True ec="编号必须是数字" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsagn = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where username='"&session("agentusername")&"'" dsagn.Open Sql,conn,1,3 if dsagn.eof then ef=True ec="代理会员不存在！" end if end If if not ef then if dsagn("haveclosehtml")=true then ef=True ec="管理员已关闭了您的服务域名及模板管理功能" end if end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%>　模板管理 <%session("FreeHostCom").FreeHost_WR("html6")%>

快速修改：
查找内容：
替换　为：


打包模板下载(可以生成一个独立的htm网站来使用)>>>>>


<% Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' and id='"&Request("id")&"'" if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' and nowuse='1'" ds.Open Sql,conn,1,3 if not ds.eof then if Request("op")="del" then if ds("nowuse")=1 then Response.Redirect "e.asp?ec=正在用的模板不允许删除" ds.delete ds.update Response.Redirect "htmlstyle.asp" end if end if if ds.eof then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsagn("agent1")&"' and id='"&Request("id")&"' and pubuse='1'" if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsagn("agent1")&"' and pubuse='1'" ds.Open Sql,conn,1,1 end if if ds.eof Then Isdefault=true %> 以下是默认的系统模板，请修改并提交。图片上传及文件管理器>>>>>

<% Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and pubuse='1' and id='"&Request("id")&"'" 'if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and pubuse='1'" if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and agentdefault='1' order by id desc" ds.Open Sql,conn,1,1 %> 网站首页设计：(当前编号：<%=ds ("id")%>)[<%=ds ("stylename")%>]
<%=server.htmlencode(ds("html1"))%>


用户区设计：
1.<%=server.htmlencode(ds("html2"))%>

2.<%=server.htmlencode(ds("html3"))%>

3.<%=server.htmlencode(ds("html4"))%>

代理区设计：
1.<%=server.htmlencode(ds("html5"))%>

2.<%=server.htmlencode(ds("html6"))%>

3.<%=server.htmlencode(ds("html7"))%>

付款方式：
1.<%=server.htmlencode(ds("html11"))%>

产品介绍页：
1.<%=server.htmlencode(ds("html12"))%>

2.<%=server.htmlencode(ds("html13"))%>

3.<%=server.htmlencode(ds("html14"))%>

联系方式：
<%=server.htmlencode(ds("html15"))%>


公司简介：
<%=server.htmlencode(ds("html16"))%>

域名注册页：
<%=server.htmlencode(ds("html17"))%>

网站推广页一：
<%=server.htmlencode(ds("html18"))%>

网站推广页二：
<%=server.htmlencode(ds("html19"))%>

网站建设页：
<%=server.htmlencode(ds("html20"))%>

整机租用/主机托管页：
<%=server.htmlencode(ds("html21"))%>

常见问题(帮助页)：
<%=server.htmlencode(ds("html22"))%>

自定义页一(对应文件是/style/info/self1.asp)不需要这个页面不用输入内容：
<%if not isnull(ds("html23")) then%><%=server.htmlencode(ds("html23"))%><%else%><%=ds("html23")%><%end if%>

自定义页二(对应文件是/style/info/self2.asp)不需要这个页面不用输入内容：
<%if not isnull(ds("html24")) then%><%=server.htmlencode(ds("html24"))%><%else%><%=ds("html24")%><%end if%>
自定义页三(对应文件是/style/info/self3.asp或tao.asp套装页)
<%if not isnull(ds("html25")) then%><%=server.htmlencode(ds("html25"))%><%else%><%=ds("html25")%><%end if%>
自定义页四(对应文件是/style/info/self4.asp
<%if not isnull(ds("html26")) then%><%=server.htmlencode(ds("html26"))%><%else%><%=ds("html26")%><%end if%>

自定义页五(对应文件是/style/info/self5.asp
<%if not isnull(ds("html27")) then%><%=server.htmlencode(ds("html27"))%><%else%><%=ds("html27")%><%end if%>

自定义页六(对应文件是/style/info/self6.asp
<%if not isnull(ds("html28")) then%><%=server.htmlencode(ds("html28"))%><%else%><%=ds("html28")%><%end if%>

自定义页七(对应文件是/style/info/self7.asp
<%if not isnull(ds("html29")) then%><%=server.htmlencode(ds("html29"))%><%else%><%=ds("html29")%><%end if%>

自定义页八(对应文件是/style/info/self8.asp
<%if not isnull(ds("html30")) then%><%=server.htmlencode(ds("html30"))%><%else%><%=ds("html30")%><%end if%>

自定义页九(对应文件是/style/info/self9.asp
<%if not isnull(ds("html31")) then%><%=server.htmlencode(ds("html31"))%><%else%><%=ds("html31")%><%end if%>

自定义页十(对应文件是/style/info/self10.asp
<%if not isnull(ds("html32")) then%><%=server.htmlencode(ds("html32"))%><%else%><%=ds("html32")%><%end if%>


<%else%> 修改您已有的模板：　

注意可以将本页另存下来备份。图片上传及使用文件管理器>>>>>

网站首页设计：(当前编号：<%=ds ("id")%>)[<%=ds ("stylename")%>]
1.<%=server.htmlencode(ds("html1"))%>

用户区设计：
1.<%=server.htmlencode(ds("html2"))%>
2.<%=server.htmlencode(ds("html3"))%>
3.<%=server.htmlencode(ds("html4"))%>

代理区设计：
1.<%=server.htmlencode(ds("html5"))%>
2.<%=server.htmlencode(ds("html6"))%>
3.<%=server.htmlencode(ds("html7"))%>

付款方式：
1.<%=server.htmlencode(ds("html11"))%>

产品介绍页：
1.<%=server.htmlencode(ds("html12"))%>
2.<%=server.htmlencode(ds("html13"))%>
3.<%=server.htmlencode(ds("html14"))%>

联系我们：
<%=server.htmlencode(ds("html15"))%>

公司简介：
<%=server.htmlencode(ds("html16"))%>

域名注册页：
<%=server.htmlencode(ds("html17"))%>

网站推广页一：
<%=server.htmlencode(ds("html18"))%>

网站推广页二：
<%=server.htmlencode(ds("html19"))%>

网站建设页：
<%=server.htmlencode(ds("html20"))%>

整机租用/主机托管页：
<%=server.htmlencode(ds("html21"))%>

常见问题(帮助页)：
<%=server.htmlencode(ds("html22"))%>
自定义页一(对应文件是/style/info/self1.asp)不需要这个页面不用输入内容：
<%if not isnull(ds("html23")) then%><%=server.htmlencode(ds("html23"))%><%else%><%=ds("html23")%><%end if%>

自定义页二(对应文件是/style/info/self2.asp)不需要这个页面不用输入内容：
<%if not isnull(ds("html24")) then%><%=server.htmlencode(ds("html24"))%><%else%><%=ds("html24")%><%end if%>
自定义页三(对应文件是/style/info/self3.asp或tao.asp套装页)
<%if not isnull(ds("html25")) then%><%=server.htmlencode(ds("html25"))%><%else%><%=ds("html25")%><%end if%>
自定义页四(对应文件是/style/info/self4.asp
<%if not isnull(ds("html26")) then%><%=server.htmlencode(ds("html26"))%><%else%><%=ds("html26")%><%end if%>

自定义页五(对应文件是/style/info/self5.asp
<%if not isnull(ds("html27")) then%><%=server.htmlencode(ds("html27"))%><%else%><%=ds("html27")%><%end if%>

自定义页六(对应文件是/style/info/self6.asp
<%if not isnull(ds("html28")) then%><%=server.htmlencode(ds("html28"))%><%else%><%=ds("html28")%><%end if%>

自定义页七(对应文件是/style/info/self7.asp
<%if not isnull(ds("html29")) then%><%=server.htmlencode(ds("html29"))%><%else%><%=ds("html29")%><%end if%>

自定义页八(对应文件是/style/info/self8.asp
<%if not isnull(ds("html30")) then%><%=server.htmlencode(ds("html30"))%><%else%><%=ds("html30")%><%end if%>

自定义页九(对应文件是/style/info/self9.asp
<%if not isnull(ds("html31")) then%><%=server.htmlencode(ds("html31"))%><%else%><%=ds("html31")%><%end if%>

自定义页十(对应文件是/style/info/self10.asp
<%if not isnull(ds("html32")) then%><%=server.htmlencode(ds("html32"))%><%else%><%=ds("html32")%><%end if%>

<%end if%>

模板命名： " maxlength="50">
checked<%end if%>> 设置为当前用模板 checked<%end if%>> 作为公共用的公开模板 checked<%end if%>> 作为新模板另存下来 ">

<% Set dsnews = Server.CreateObject("ADODB.Recordset") Sql="Select id,stylename,nowuse,username,pubuse,agentdefault from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' or (username='"&dsagn("agent1")&"' and pubuse='1') order by id" if isnull(dsagn("agent1")) or dsagn("agent1")="n" then Sql="Select id,stylename,nowuse,username,pubuse,agentdefault from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' or (username='freehost' and pubuse='1') order by id" end if 'response.write sql 'response.end dsnews.PageSize = 15 dsnews.Open Sql,conn,1,1 %> <% if dsnews.Eof then %>
数据库中不存在模板的记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsnews.RecordCount <> 0 Then dsnews.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsnews.PageCount<=10 then endini=dsnews.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dsnews.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页 <%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dsnews.PageSize If dsnews.RecordCount=0 Then Exit For %> <% If clng(pn)=dsnews.PageCount Then I = dsnews.RecordCount - (dsnews.PageCount-1) * dsnews.PageSize If N=I Then Exit For End If dsnews.movenext Next%>

编号	名称	属性	属性	操作
<%=dsnews("id")%>	<%=dsnews("stylename")%>	<%if dsnews("nowuse")=true and dsnews("username")<>"freehost" then%> 当前正在用的模板 <%end if%> <%if dsnews("agentdefault")=true and dsnews("username")="freehost" then%> 代理未设置模板时的默认模板 <%end if%>	<%if dsnews("pubuse")=true then%>公开的模板<%else%>不公开的模板<%end if%>	">修改 &op=del">删除

<%end if dsnews.close set dsnews=nothing%> <%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>